home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / S / SmartClone.3.cpt / SmartClone 0.3.rsrc / STR#_1007.txt < prev    next >
Encoding:
Text File  |  1988-08-22  |  721 b   |  33 lines
  1. SERVICE:               COMMAND KEY: ?
  2.  
  3. ' query user for number of rings before answer (must be between 1 and 9)
  4.  
  5. Debug% = FALSE%         ' so Val% works with values greater than MaxInt
  6.  
  7. again:
  8.  
  9.     IF (Val%(@RingsBeforeAnswer) > 0) AND (Val%(@RingsBeforeAnswer) < 10) THEN ‚àÇ
  10.  
  11.         DBoxResp = @RingsBeforeAnswer ‚àÇ
  12.  
  13.     ELSE @RingsBeforeAnswer = "1": DBoxResp = "1"       ' default is 1
  14.  
  15.     DBoxSay = "^M^M   How many rings before^M   answering? (1-9)"
  16.  
  17.     DBOX 5
  18.  
  19.     IF (DBoxResult% = CANCEL%) OR (DBoxResp = "") THEN END ELSE ‚àÇ
  20.  
  21.         if (VAL%(DBoxResp) > 0) AND (VAL%(DBoxResp) < 10) then ‚àÇ
  22.  
  23.             @RingsBeforeAnswer = DBoxResp: END ‚àÇ
  24.  
  25.         else goto again
  26.  
  27. Interrupt:
  28.  
  29.     DBOX 0
  30.  
  31.     LEAVE
  32.  
  33.